home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs28.d81 / millen.slr (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  6KB  |  27 lines
  1. 100 PRINT CHR$(147):PRINT"[154] SIDPLAYER SONG AND STEREO  DISSOLVER"
  2. 110 PRINT " BY CHAMBERLAINnOGLESBY 8/87":PRINT:SP=783:DN=8
  3. 130 WR=3015:WU=WR+70:A=WU+77
  4. 135 L=PEEK(A):FOR K=1 TO L:F$=F$+CHR$(PEEK(A+K)):NEXT:A=A+K
  5. 140 ML=PEEK(A)+256*PEEK(A+1):MA=A+2:PA=MA+ML
  6. 300 PRINT " THIS PROGRAM WRITES TO DISK
  7. 305 [153]" THE MUSIC & STEREO FILES":[153]" FOR:":[153]:[153]" "F$:[153]:[143][143]STEREO SID
  8. 320 [153]"CONT INSERT A DISK TO RECEIVE":[153] " THE MUSIC AND STEREO  FILES,
  9. 325 PRINT " AND PRESS ANY KEY":PRINT
  10. 330 POKE 198,0:WAIT 198,15:GET G$
  11. 400 OPEN 2,DN,15:INPUT#2,A,B$,C,D:IF A GOTO 710
  12. 410 PRINT " WRITING " F$ ".MUS"
  13. 420 OPEN 1,DN,2,F$+".MUS,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  14. 430 SYS WR,MA,MA+ML:IF PEEK(SP)AND1 GOTO 700
  15. 440 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  16. 560 PRINT " WRITING " F$ ".STR"
  17. 570 OPEN 1,DN,2,F$+".STR,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  18. 580 SYS WU,PA:IF PEEK(SP)AND1 GOTO 700
  19. 590 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  20. 600 PRINT:PRINT " SCRATCH " F$ ".SLR? ";
  21. 610 WAIT 198,15:GET G$:IF G$="N" THEN PRINT "NO":GOTO 690
  22. 620 IF G$<>"Y" GOTO 610
  23. 630 PRINT "YES":PRINT#2,"S0:"+F$+".SLR":INPUT#2,A,B$,C,D:IF A>1 GOTO 710
  24. 690 CLOSE 2:END
  25. 700 INPUT#2,A,B$,C,D
  26. 710 PRINT:PRINT " ERROR: " B$:CLOSE 1:CLOSE 2:END
  27.